(x_get_arg): Use downcased string in compare.

diff --git a/src/xfns.c b/src/xfns.c
index 96f6f6c390b7a49c1b8c296ced7dd1b5748d30f4..ca04c69176dfd14bfba8ae287bcce5d3a648ce3d 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1436,11 +1436,11 @@ x_get_arg (alist, param, attribute, class, type)
              {
                Lisp_Object lower;
                lower = Fdowncase (tem);
-               if (!strcmp (XSTRING (tem)->data, "on")
-                   || !strcmp (XSTRING (tem)->data, "true"))
+               if (!strcmp (XSTRING (lower)->data, "on")
+                   || !strcmp (XSTRING (lower)->data, "true"))
                  return Qt;
-               else if (!strcmp (XSTRING (tem)->data, "off")
-                     || !strcmp (XSTRING (tem)->data, "false"))
+               else if (!strcmp (XSTRING (lower)->data, "off")
+                     || !strcmp (XSTRING (lower)->data, "false"))
                  return Qnil;
                else
                  return Fintern (tem, Qnil);